Option Explicit
Sub B_Sample007()
    Dim myRng As Range
    Set myRng = Range("A1")			'Nxs
    With myRng
        .Clear					'xs檺M
        .NumberFormatLocal = "\#,##0"		'榡]w
        'ǳƨ즹
        MsgBox "xs" & .Address & "" & vbCrLf & _
        "ܤ覡" & .NumberFormatLocal & "C"
    End With
    Set myRng = Nothing				'
End Sub
